Metallica: Do Show de Garagem para o Mundo

Trabalho de Conclusão do curso ‘R para Ciência de Dados 2’

Introdução

A banda Metallica surgiu no comecinho dos anos 80, inspirando-se na Nova Onda do Heavy Metal Britânico, uma corrente surgida anos antes e que compreende bandas como Iron Maiden, Judas Priest, Venom, Def Leppard, Motorhead e tantas outros nomes que, se você não estiver habituade, vão parecer mais nomes de Pokémon do que qualquer outra coisa. Mas o ponto não é esse!

Desde que surgiu, a banda revolucionou a música e deu base para todo um gênero, fazendo diversas turnês pelo mundo e sendo o único conjunto/artista a ter tocado em todos os 7 continentes do mundo..

Com tantos anos de estrada, é da curiosidade de alguém (como nós, estatísticos e cientistas de dados talvez) compreender em números como foram essas turnês, em que locais seus shows ocorreram e outras características de interesse. Sem mais delongas, vamos ao trabalho!

O Banco de Dados

O banco de dados utilizado para este trabalho encontra-se disponível no Kaggle, e chama-se Metallica Tour History. A base, após a limpeza, consiste em 23 atributos de 2070 shows feitos pela banda ao longo do tempo. As variáveis presentes são:

  • Date: Data do show no formato “aaaa-mm-dd”;
  • Year: Ano de ocorrência do show;
  • Festival: Festival onde o show ocorreu, se houver;
  • Tour: Turnê onde o show ocorreu, se houver;
  • Country: País onde o show ocorreu;
  • Set: Setlist principal do show, concatenado uma string dividida por vírgulas;
  • Encores: Músicas extras do show, ou seja, músicas que não estavam na setlist mas foram tocadas ao final do show;
  • Set_Length: Número de músicas da setlist;
  • Disco_Count: Número de músicas de determinado disco tocadas no show.

Falando em discos, é interessante apresentarmos quais discos a banda lançou ao longo dos anos para aqueles que nunca ouviram falar dela. Eles estão apresentados à seguir:

# Definindo pasta de trabalho para a principal, e não a docs/
setwd("..")

# Lendo banco de dados

metallica <- readRDS("data/metallica.rds")

# Criando tabela com discos, capa e ano de lançamento

dplyr::tibble(
  Disco=c("Kill'Em All", "Ride the Lightning", "Master of Puppets",
            "...And Justice For All", "Black Album", "Load", "ReLoad",
            "Garage Inc.", "St. Anger", "Death Magnetic",
            "Hardwired To Self Destruct"),
  Capa=c("img/1-kill.jpg","img/2-ride.jpg","img/3-master.jpg",
         "img/4-justice.jpg","img/5-black.jpg","img/6-load.jpg",
         "img/7-reload.jpg", "img/8-garage.jpg","img/9-anger.jpg",
         "img/10-death.jpg","img/11-hardwired.jpg"),
  Ano=c(1983, 1984, 1986, 1988, 1991, 1996, 1997, 1998, 2003, 2008, 2016)
) |> 
  gt::gt() |> 
  gt::tab_header(
    title = gt::md("**Discografia do Metallica**"),
    subtitle = gt::md("A banda começou seus anos mais revoltados com 'Kill`Em All', chegando até o mais recente 'Hardwired To Self Destruct'") 
  ) |> 
  gt::text_transform(
    locations = gt::cells_body(Capa),
    fn = function(x){
      purrr::map_chr(x, ~ gt::local_image(
        filename = .x,
        height = 75
      ))
    }
  )
Discografia do Metallica
A banda começou seus anos mais revoltados com 'Kill`Em All', chegando até o mais recente 'Hardwired To Self Destruct'
Disco Capa Ano
Kill'Em All 1983
Ride the Lightning 1984
Master of Puppets 1986
...And Justice For All 1988
Black Album 1991
Load 1996
ReLoad 1997
Garage Inc. 1998
St. Anger 2003
Death Magnetic 2008
Hardwired To Self Destruct 2016

Sem mais delongas, vamos ao trabalho!

Perguntas de interesse

Antes de partirmos para as análises propriamente ditas, existem algumas perguntas que podem nos auxiliar a descrever o comportamento da banda ao longo dos anos no que diz respeito às suas turnês, shows e afins:

  1. Quais foram as turnês com mais shows? Quando ocorreram? Qual o tamanho médio dos shows da turnê? Quais turnês duraram mais tempo?
  2. Em quais países a banda fez mais shows?
  3. Qual disco foi o mais tocado pela banda?
  4. Quais foram as músicas mais tocadas pela banda?

As seções desta análise estão divididas de maneira a cobrir essas questões de uma maneira mais conveniente:

Análise dos Dados

Turnês

No banco de dados em estudo, temos turnês registradas até o ano de 2018; ao todo, são 30 turnês (sem contarmos os shows que não fizeram parte de nenhum itinerário desse tipo):

# Tabela de todas as turnês

metallica |> 
  dplyr::filter(Tour!="None") |> 
  dplyr::group_by(Tour) |> 
  dplyr::summarise(`Data de Início:`=min(Date),
                   `Data de Término`=max(Date)) |> 
  dplyr::arrange(`Data de Início:`) |> 
  gt::gt() |> 
  gt::tab_header(
    title=gt::md("**Lista de Turnês da banda Metallica**"),
    subtitle=gt::md("A primeira ocorreu no ano de 1983 para a divulgação de seu disco de estréia")
  ) |> 
  gt::tab_footnote(
    footnote = gt::md("Dados registrados até o ano de 2018; a turnê 'WorldWired' ainda está ocorrendo"),
    locations = gt::cells_column_labels(
      columns= Tour
    )
  ) |> 
  gt::tab_options(
    container.height = 500
  )
Lista de Turnês da banda Metallica
A primeira ocorreu no ano de 1983 para a divulgação de seu disco de estréia
Tour1 Data de Início: Data de Término
Kill 'Em All for One 1983-07-27 1983-09-03
Seven Dates of Hell 1984-02-03 1984-02-12
Hell On Earth Tour 1984-03-21 1984-04-03
Ride the Lightning 1984-11-16 1985-03-19
Damage, Inc. 1986-03-27 1987-02-13
Van Halen's Monsters of Rock 1988-05-27 1988-07-30
Damaged Justice 1988-09-11 1989-10-07
Monsters of Rock 1991-08-10 1991-09-28
Wherever We May Roam 1991-10-29 1993-05-08
Guns N' Roses/Metallica Stadium Tour 1992-07-17 1992-10-06
Nowhere Else to Roam 1993-05-19 1993-07-04
Summer Shit 1994-05-30 1994-08-21
Escape from the Studio '95 1995-08-23 1995-09-03
Lollapalooza 1996-06-27 1996-08-04
Poor Touring Me 1996-09-06 1997-05-28
Blitzkrieg '97 1997-08-22 1997-11-18
Poor ReTouring Me 1998-04-02 1998-09-13
Garage Barrage 1998-11-17 1998-11-24
The Garage Remains the Same 1999-04-30 1999-07-24
M2K 1999-12-28 2000-01-10
Summer Sanitarium 2000-06-30 2000-07-22
Summer Sanitarium 2003 2003-07-04 2003-08-10
Madly In Anger With The World 2004-02-27 2004-11-28
Escape from the Studio '06 2006-06-03 2006-08-15
Sick of the Studio '07 2007-06-28 2007-07-17
European Vacation 2008-05-28 2008-08-24
World Magnetic 2008-10-21 2010-11-21
The Full Arsenal 2012-07-28 2012-08-27
Metallica By Request 2014-03-16 2014-08-09
WorldWired 2016-08-20 2018-12-09

1 Dados registrados até o ano de 2018; a turnê 'WorldWired' ainda está ocorrendo

Tendo em mente as 30 turnês apresentadas, é interessante pensarmos em quais delas possuem/possuíram maior duração. Ordenadas da maior para a menor turnê, no quesito duração em dias, temos que as 5 mais extensas foram:

# Tabela das top 5 turnes por duração em dias

metallica |> 
  dplyr::filter(Tour!="None") |> 
  dplyr::group_by(Tour) |> 
  dplyr::summarise(`Duração em dias`=max(Date)-min(Date)) |> 
  dplyr::arrange(desc(`Duração em dias`)) |> 
  dplyr::top_n(5) |> 
  gt::gt() |> 
  gt::tab_header(
    title=gt::md("**Top 5 turnês mais duradouras da banda Metallica**"),
    subtitle=gt::md("A turnê 'WorldWired' tem tudo para bater ainda mais recordes, dito que ainda está ocorrendo no presente ano de 2021")
  ) 
Top 5 turnês mais duradouras da banda Metallica
A turnê 'WorldWired' tem tudo para bater ainda mais recordes, dito que ainda está ocorrendo no presente ano de 2021
Tour Duração em dias
WorldWired 841
World Magnetic 761
Wherever We May Roam 557
Damaged Justice 391
Damage, Inc. 323

Outro destaque interessante vai para a turnê “Wherever We May Roam”, ocorrida no início da década de 90 e tida como um dos pontos altos da banda, apenas superada recentemente pelas turnês “World Magnetic” e “WorldWired”.

Mas beleza, de nada adianta analisarmos única e exclusivamente a duração de uma turnê pela sua quantidade de dias, mas sim pela quantidade de shows e a quantidade média de dias entre cada show. É o que faremos agora:

# Tabela das top 5 turnês por quantidade de shows

metallica |> 
  dplyr::filter(Tour!="None") |> 
  dplyr::group_by(Tour) |> 
  dplyr::summarise(`Quantidade de Shows`= dplyr::n()) |> 
  dplyr::arrange(desc(`Quantidade de Shows`)) |> 
  dplyr::top_n(5) |> 
  gt::gt() |> 
  gt::tab_header(
    title=gt::md("**Top 5 turnês com mais shows da banda Metallica**"),
    subtitle=gt::md("A lendária 'Wherever We May Roam' foi a maior de todas, com 229 shows")
  ) 
Top 5 turnês com mais shows da banda Metallica
A lendária 'Wherever We May Roam' foi a maior de todas, com 229 shows
Tour Quantidade de Shows
Wherever We May Roam 229
Damaged Justice 219
World Magnetic 179
Damage, Inc. 140
Poor Touring Me 135

Santa correria! Será que, com o passar do tempo, o ritmo continuou o mesmo ou os membros da banda se cansaram e preferiram ficar mais numa boa? A razão dias/show ao longo dos anos de carreira da banda é um bom indicador dessa questão. Iremos analisá-la de acordo com cada turnê e com cada ano:

# Gráfico da razão dias/show por ano

metallica |>
  dplyr::group_by(Year) |> 
  dplyr::summarise(days_show_ratio = (max(Date)-min(Date))/dplyr::n()) |> 
  dplyr::arrange(Year) |> 
  ggplot2::ggplot(ggplot2::aes(x = Year, y = as.numeric(days_show_ratio)))+
  ggplot2::geom_line()+
  ggplot2::labs(x = "Ano",y = "Média de Dias entre Shows",
                title="Quantidade Média de Dias entre Shows ao longo dos anos",
                subtitle="O ano com os shows mais espaçados, no geral, foi o de 1995")

# Tabela das 5 turnês com menor razão dias/show por turnê

mais_corrida <- metallica |> 
  dplyr::filter(Tour!="None") |> 
  dplyr::group_by(Tour) |> 
  dplyr::summarise(`Razão Dias/Show`= round(
    (max(Date)-min(Date))/dplyr::n(),digits=2
  )) |> 
  dplyr::arrange(`Razão Dias/Show`) |>
  dplyr::top_n(-5) |> 
  gt::gt() |> 
  gt::as_raw_html()

# Tabela das 5 turnês com maior razão dias/show por turnê

menos_corrida <- metallica |> 
  dplyr::filter(Tour!="None") |> 
  dplyr::group_by(Tour) |> 
  dplyr::summarise(`Razão Dias/Show`= round(
    (max(Date)-min(Date))/dplyr::n(),digits=2
  )) |> 
  dplyr::arrange(desc(`Razão Dias/Show`)) |>
  dplyr::top_n(5) |> 
  gt::gt() |> 
  gt::as_raw_html()

data.frame(menos_corrida, mais_corrida) |> 
  gt::gt() |> 
  gt::fmt_markdown(columns = dplyr::everything()) |> 
  gt::cols_label(menos_corrida = "Top 5 Turnês menos 'corridas'",
                 mais_corrida = "Top 5 Turnês mais 'corridas'") |> 
  gt::tab_header(
    title = gt::md("Turnês mais e menos 'corridas' da banda Metallica"),
    subtitle = gt::md("O ritmo mais pesado chegou a um show para cada 1,18 dias; o mais leve foi de um show para cada 9,78 dias")
  )
Turnês mais e menos 'corridas' da banda Metallica
O ritmo mais pesado chegou a um show para cada 1,18 dias; o mais leve foi de um show para cada 9,78 dias
Top 5 Turnês menos 'corridas' Top 5 Turnês mais 'corridas'
Tour Razão Dias/Show
Blitzkrieg '97 9.78
WorldWired 6.95
Escape from the Studio '06 6.08
Metallica By Request 5.84
European Vacation 4.4
Tour Razão Dias/Show
Hell On Earth Tour 1.18
Kill 'Em All for One 1.19
M2K 1.3
Garage Barrage 1.4
Seven Dates of Hell 1.5